private function GreaterThanOrEqual(time1, time2) result(greatequal)
return true if time1 is greater than time2
or time1 is equal to time2
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time1 |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time2 |
|
Return Value
logical
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
type(DateTime),
|
public |
|
:: |
tempTime1 |
|
|
|
|
type(DateTime),
|
public |
|
:: |
tempTime2 |
|
|
|
Source Code
FUNCTION GreaterThanOrEqual &
!
(time1, time2) &
!
RESULT (greatequal)
IMPLICIT NONE
! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time1, time2
! Local scalars:
LOGICAL :: greatequal
TYPE (DateTime) :: tempTime1, tempTime2
!------------end of declaration------------------------------------------------
!converto to utc
tempTime1 = ToUtc (time1)
tempTime2 = ToUtc (time2)
IF ( tempTime1 > tempTime2 .OR. tempTime1 == tempTime2 ) THEN
greatequal = .TRUE.
ELSE
greatequal = .FALSE.
END IF
END FUNCTION GreaterThanOrEqual
